import Size
import Point2D
import Rectangle

-- Tests
r1,r2,r3,r4,r10,r11,r12,r20,r21 :: Rectangle
t1,t2,t3,t4,t10,t11,t12,t20,t21 :: Bool
tests :: [Bool]

r1 = point2 10 20 `rect` point2 30 40
t1 = r1 == point2 10 20 `RC` point2 30 40

r2 = point2 30 20 `rect` point2 10 40
t2 = r2 == r1

r3 = point2 10 40 `rect` point2 30 20
t3 = r3 == r1

r4 = point2 30 40 `rect` point2 10 20
t4 = r4 == r1

r10 = point2 15 25 `rect` size 20 20
t10 = r10 == point2 15 25 `RC` point2 35 45

r11 = point2 35 25 `rect` size (-20) 20
t11 = r11 == r10

r12 = point2 15 45 `rect` size 20 (-20)
t12 = r12 == r10

r20 = r1 `union` r10
t20 = r20 == point2 10 20 `RC` point2 35 45
r21 = r1 `intersection` r10
t21 = r21 == point2 15 25 `RC` point2 30 40

tests = [t1,t2,t3,t4, t10,t11,t12, t20,t21]

